home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 June / PCWorld_2001-06_cd.bin / Novinky / unis / Soubory ExcelDB.exe / ExcelDB / Seçity / SQLSERVERMAKRO.bas < prev    next >
BASIC Source File  |  2001-04-24  |  1KB  |  34 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Makro1()
  3. Attribute Makro1.VB_Description = "Makro zaznamenanΘ 13.4.2001, Pokorn²"
  4. Attribute Makro1.VB_ProcData.VB_Invoke_Func = " \n14"
  5. '
  6. ' Makro1 Makro
  7. ' Makro zaznamenanΘ 13.4.2001, Pokorn²
  8. '
  9.     With ActiveSheet.QueryTables.Add(Connection:= _
  10.         "ODBC;DRIVER=SQL Server;SERVER=(local);UID=sa;PWD=;WSID=X8J5U8;DATABASE=Northwind" _
  11.         , Destination:=Range("A11"))
  12.         .CommandText = Array( _
  13.         "SELECT Customers.CustomerID, Customers.CompanyName, Customers.Address, Customers.City, Customers.Country, Orders.OrderID, Orders.OrderDate, Orders.Freight" & Chr(13) & "" & Chr(10) & "FROM Northwind.dbo.Customers Customers, Nort" _
  14.         , _
  15.         "hwind.dbo.Orders Orders" & Chr(13) & "" & Chr(10) & "WHERE Customers.CustomerID = Orders.CustomerID AND ((Customers.Country='USA') OR (Customers.Country='Canada') OR (Customers.Country='Mexico'))" & Chr(13) & "" & Chr(10) & "ORDER BY Customers.CompanyName" _
  16.         )
  17.         .Name = "Dotaz z SQL Server"
  18.         .FieldNames = True
  19.         .RowNumbers = False
  20.         .FillAdjacentFormulas = False
  21.         .PreserveFormatting = True
  22.         .RefreshOnFileOpen = False
  23.         .BackgroundQuery = True
  24.         .RefreshStyle = xlInsertDeleteCells
  25.         .SavePassword = True
  26.         .SaveData = True
  27.         .AdjustColumnWidth = True
  28.         .RefreshPeriod = 0
  29.         .PreserveColumnInfo = True
  30.         .Refresh BackgroundQuery:=False
  31.     End With
  32.  
  33. End Sub
  34.